思考型ゲームＪＥＷＥＬ
―――――――――――――――――――――――――――――――――――――――
Ｏｈ！ｍｚ　１９８６年　４月号掲載
Ｓ−ＯＳ　ＳＷＯＲＤ

マシン語　ＪＥＷＥＬ．ＳＯＳ
　　　　　　０Ａ０００Ｈ−０Ａ８８８Ｈ　Ｓ：０Ａ０００Ｈ

ソース　　ＪＥＷＥＬ．ＡＳＣ

起動方法
ＪＥＷＥＬ．ＳＯＳをロード
ＪＡ０００

コールドスタート　０Ａ０００Ｈ
ホット　スタート　０Ａ２８ＤＨ

―――――――――――――――――――――――――――――――――――――――
全機種共通（Ｓ−ＯＳ要）

　思　考　型　ゲ　ー　ム　Ｊ　Ｅ　Ｗ　Ｅ　Ｌ


Ｓ−ＯＳ上でゲームも全機種共通です。
さすがに美しいグラフィックでというわけにはいきませんが、
味のある思考型ゲームなどはいかがでしょう。
今回ご紹介するのは、谷口祥一さんの投稿作品です。
ぜひとも入力してみんなで楽しみましょう。


■ゲームの内容

Ｍ（ Man）を操作してＯ（障害物）をおしのけ
＊（ Jewel）をＧ（Goal）まで運ぶ最手順を探すゲームです。
Ｇｒａｄｅ（面）は10面あり、
それぞれについてクリアされた手順が記録され、
再現できるようになっています。
Ｊ、Ｋ、Ｌ、Ｉの４つのキーを操作して
Ｍを左、右、上、下へ動かします。
障害物（Ｏ）やＪｅｗｅｌ（＊）を押して動かすのですが、
進行方向がふさがっているときには動かすことができません。
また、引っ張ることもできません。
ＪｅｗｅｌをＧｏａｌまで運ぶと１面クリアです。


■コマンドの説明

・Ｍ　（Once　More）現在の面をやり直す
・Ｂ　（Back）　　　ひとつ前の面へ戻る
・Ｆ　（Forward） 　ひとつ先の面へ進む
　　　　　　　　　　ただしその面がクリアされていなければ
　　　　　　　　　　いけません。
・Ｔ　（Trace） 　　クリアされた手順を
　　　　　　　　　　再生します


■入力・実行方法

各機種のモニタ、
またはマシン語入力ツールを用いて打ち込んでください。
打ち込み終わったら、A000Ｈ〜A888Ｈを
ファイル名ＪＥＷＥＬとしてセーブしてください。
Ｓ−ＯＳのモニタから、ＪA000[CR]で
ＪＥＷＥＬがコールドスタートします。
ホットスタートのアドレスはA28DＨです。


■プログラムの説明

メッセージ、画面データはプログラムの最後に集めましたので、
10面を突破された方は新しい面を作るなどして遊んでください。
CURSR というサブルーチンは、
ＤＥレジスタに座標をＤ＝ｘ、Ｅ＝ｙとなるようにセットしてコールすると、
カーソル位置を設定するサブルーチンです。
Ｓ−ＯＳ“ＳＷＯＲＤ”中の LOCというサブルーチンを使いました。
Ｓ−ＯＳ“ＭＡＣＥ”を使っている方は次のように書き換えてください。
　現行A131H:E5 6B 62 CD 1E 20 E1 C9 00
　変更A131H:E5 2A 78 1F 73 23 72 E1 C9


●図１　私の記録
・―――――――――――――――――――――――・
｜GRADE ｜１｜２｜３｜４｜５｜６｜７｜８｜９｜10｜
｜―――＋―＋―＋―＋―＋―＋―＋―＋―＋―＋―｜
｜手　数｜24｜24｜38｜24｜26｜41｜25｜44｜30｜21｜
・―――――――――――――――――――――――・

・――――――――――――――――――――――・
｜倉庫番のようなルールですが、　　　　　　　　｜
｜最短手順を探るというのが面白いですね。　　　｜
｜プログラムの最後に画面データが　　　　　　　｜
｜集めてあるので、　　　　　　　　　　　　　　｜
｜自分でデータを差し換えるのも簡単です。　　　｜
｜Ｔコマンドが可愛くて癖になってしまいました。｜
｜もともとはＭ（Ｍａｎ）を　　　　　　　　　　｜
｜テンキーで操作するようになっていたのですが、｜
｜ＭＺ−80K／Ｃ／1200／700／1500のことを考え、｜
｜メインキーで操作するように　　　　　　　　　｜
｜編集室で変更させていただきました。　　　　　｜
｜40字画面でプレイしていても、　　　　　　　　｜
｜画面が小さいのが気になります。　　　　　　　｜
｜ＰＩＴＭＡＮ程度の大きさにできれば　　　　　｜
｜面白いかもしれませんね。　　　　　　　　　　｜
｜そういった改造をするためにも、　　　　　　　｜
｜できればソースで入力することをお勧めします。｜
｜ところで本当にＧＲＡＤＥ１は　　　　　　　　｜
｜24手で解けるのですか？　　　　　　　　　　　｜
｜私にはわからない。（ＩＭＴ）　　　　　　　　｜
・――――――――――――――――――――――・